Amiga Plus Leser 15/Amiga Plus Leser CD 15.iso/Tools/Development/ggT/teiler.ads

Text File | 2002-03-13 | 427 b | 22 lines

-- Def-Modult: Teiler.ads
-- Autor:      Norman Walter
-- Zweck:      Berechnet größten gemeinsamen Teiler zweier Zahlen

with schlangenpaket;

package Teiler is

function ggt (a,b: integer) return integer;
 -- Ließt integer-Variablen a und b ein,
 -- gibt den größten gemeinsamen Teiler
 -- als integer zurück.

function teilerfremd (m,n: integer) return integer;
-- liefert 1, falls m,n teilerfremd, sonst 0

end Teiler;